home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / LIGHT SHOW VARIATION 1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  485b  |  10 lines
  1. 10  TEXT : GR : HOME 
  2. 20  FOR NL = 1 TO 13: COLOR= NL
  3. 30 X =  INT( RND(1) *20):Y = X
  4. 40 DX =  INT( RND(1) *3): IF DX = 2  THEN DX =  -1
  5. 50 DY =  INT( RND(1) *3): IF DY = 2  THEN DY =  -1
  6. 60  FOR LL = 1 TO 100
  7. 70  HLIN X,X AT Y: HLIN X,X AT 39 -Y: HLIN 39 -X,39 -X AT Y: HLIN 39 -X,39 -X AT 39 -Y
  8. 80 X = X +DX: IF ((X <0)  OR (X >19))  THEN DX = DX * -1: GOTO 80
  9. 90 Y = Y +DY: IF ((Y <0)  OR (Y >19))  THEN DY = DY * -1: GOTO 90
  10. 100  NEXT LL: NEXT NL: FOR P = 1 TO 6000: NEXT P: GOTO 10